home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
pswd174.zip
/
RSB1PSWD.MRG
< prev
next >
Wrap
Text File
|
1992-05-16
|
9KB
|
160 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB1.BAS to produce RBBSSUB1.NEW
* RBBSSUB1.BAS: Date 3-5-1992 Size 58998 bytes
* ------------[ Created 05-16-1992 22:49:53 ]------------
* REPLACING old line(s) by new
' $linesize:132
' $title: 'RBBS-SUB1.BAS 17.4, Copyright 1986-92 by D. Thomas Mack'
' Copyright 1990 by D. Thomas Mack, all rights reserved.
' Name ...............: RBBSSUB1.BAS
' First Released .....: April 12, 1992
' Subsequent Releases.:
' Copyright ..........: 1986-1992
' Purpose.............:
' Subprorams that require error trapping are incorporated
' within RBBSSUB1.BAS as separately callable subroutines
' in order to free up as much code as possible within
' the 64WasK code segment used by RBBS-PC.BAS.
' Parameters..........: Most parameters are passed via a COMMON statement.
'
' Subroutine Line Function of Subroutine
' Name Number
' ChangeDir 20101 Change subdirectory
' CheckInt 58360 Check input is valid integer
' CommPut 59275 Write string to communications port
* ------[ first line different ]------
' ExpiredPswd 63801 Force change of password ' PSWD174
' FindFile 59790 Determine whether a file exists without opening it
' FindFree 51098 Find amount of space on the upload disk drive
' FindItX 20219 Find if a file exists on a device
' FindUser 12598 Find a user in the USERS file
' FlushCom 20308 Read all characters in the communications port
' GetCom 1418 Read a character from the communications port
' GetPassword 58280 Read RBBS-PC's "PASSWORD" file
' GETWRK 58330 Read record from file number 2
' KillWork 58258 Delete a RBBS-PC "WORK" file
' NetBIOS 20898 Lock/Unlock NetBIOS semaphore files
' OpenCom 200 Open communications port (number 3)
' OpenFMS 58188 Open the upload management system directory
' OpenOutW 28218 Open RBBS-PC's "WORK" file (number 2) for output
' OpenRSeq 1479 Open a sequential file (number 2) for random I/O
' OpenUser 9398 Open the USER file (number 5)
' OpenWork 57978 Open RBBS-PC's work file (number 2)
' OpenWorkA 58340 Open RBBS-PC's "WORK" file (number 2) for append
' Printit 13673 Print line on the local PC printer
' PrintWork 58320 Print string to file #2 w/o CR/LF
' PrintWorkA 58350 Print string to file #2 with CR/LF
' PutCom 59650 Write to the communications port
' PutWork 59660 Write to work file randomly
' RBBSPlay 59680 Plays a musical string
' ReadAny 58310 Read file number 2 into ZOutTxt$
' ReadDef 112 Read configuration file
' ReadDir 58290 Read entire lines
' ReadParmsX 58300 Read certain number of parameters from specified file ' KG112101
' Talk 59700 RBBS-PC Voice synthesizer support for sight impaired
' SetCall 108 Find where next callers record is
' UpdateC 43048 Update the caller's file with elasped session time
' UpdtCalr 13661 Update to the caller's file
'
' $INCLUDE: 'RBBS-VAR.BAS'
'
* REPLACING old line(s) by new
58280 ' $SUBTITLE: 'GetPassword - sub to read the "passwords" file'
' $PAGE
'
' NAME -- GetPassword
'
' PARAMETER MEANING
' INPUTS -- FILE # 2 OPENED
'
' OUTPUTS -- ZTempPassword$
' ZTempSecLevel
' ZTempTimeAllowed
' ZTempRegPeriod
' ZTempMaxPerDay
'
' PURPOSE -- To read the RBBS-PC "PASSWORDS" file
'
SUB GetPassword STATIC
ON ERROR GOTO 65000
ZErrCode = 0
INPUT #2,ZTempPassword$, ZTempSecLevel, _
ZTempTimeAllowed, ZTempMaxPerDay, _
ZTempRegPeriod, ZTempExpiredSec, _ ' DA021501
ZStartTime, ZEndTime, _ ' DA021501
ZByteMethod, ZRatioRestrict#, _ ' DA021501
ZInitialCredit#, ZTempTimeLock, _ ' DA021501
* ------[ first line different ]------
ZTempMaxBank, ZPswdChngReqTime ' PSWD174
* REPLACING old line(s) by new
59791 IF FExists THEN _
IOErrorCount = 0 : _
CALL RBBSFind (FilName$,WasZ,WasY,WasM,WasD) : _
FExists = (WasZ = 0)
END SUB
* ------[ first line different ]------
'
* INSERTING new line(s)
63801 '$SUBTITLE: 'ExpiredPswd -- Subroutine to force change of password' ' PSWD174
' $PAGE
'
' NAME: -- ExpiredPswd
'
' PURPOSE: -- Force a user to change his/her password every 30 times
' logged on to the system.
'
' WRITTEN BY: Richie Molinelli on 03-14-92
'
SUB ExpiredPswd STATIC ' PSWD174
IF ZPswdChngReqTime = 0 THEN _ ' PSWD174
EXIT SUB ' PSWD174
IF ZTimesLoggedOn MOD ZPswdChngReqTime <> 0 THEN _ ' PSWD174
EXIT SUB ' PSWD174
63802 CALL SkipLine (1) ' PSWD174
CALL QuickTPut1 ("Your password has expired...you must change your password.") ' PSWD174
Prompt$ = "Enter a New Password" ' PSWD174
CALL NewPassword (Prompt$,ZTrue) ' PSWD174
CALL AllCaps (ZOldPassword$) ' PSWD174
IF ZWasZ$ = ZOldPassword$ THEN _ ' PSWD174
CALL SkipLine (1) : _ ' PSWD174
CALL QuickTPut1 ("You CANNOT reuse your OLD PASSWORD!") : _ ' PSWD174
CALL SkipLine (1) : _ ' PSWD174
GOTO 63802 ' PSWD174
ZOutTxt$ = "Re-enter your New Password" ' PSWD174
ZHidden = ZTrue ' PSWD174
ZSubParm = 1 ' PSWD174
CALL TGet ' PSWD174
CALL AllCaps (ZUserIn$) ' PSWD174
IF ZWasZ$ <> ZUserIn$ THEN _ ' PSWD174
ZOutTxt$ = "Passwords do not match" : _ ' PSWD174
ZSubParm = 1 : _ ' PSWD174
CALL TPut : _ ' PSWD174
GOTO 63802 ' PSWD174
CALL UpdtCalr ("Expired Password! " + Time$,2) ' PSWD174
ZSubParm = 6 ' PSWD174
CALL FileLock ' PSWD174
CALL OpenUser (HighestUserRecord) ' PSWD174
GET 5,ZUserFileIndex ' PSWD174
CALL AllCaps (ZUserIn$) ' PSWD174
LSET ZPswd$ = ZUserIn$ ' PSWD174
IF ZUserFileIndex > 0 AND ZUserFileIndex < 32768 THEN _ ' PSWD174
PUT 5,ZUserFileIndex ' PSWD174
ZSubParm = 8 ' PSWD174
CALL FileLock ' PSWD174
ZOutTxt$ = "Password Changed." ' PSWD174
ZStopInterrupts = ZTrue ' PSWD174
ZSubParm = 1 ' PSWD174
CALL TPut ' PSWD174
CALL SkipLine (1) ' PSWD174
CALL UpdtCalr ("New Password " + ZUserIn$(1),2) ' PSWD174
CALL DelayTime (2) ' PSWD174
END SUB ' PSWD174
' ' PSWD174
' $SUBTITLE: 'Error Handling for separately compiled subroutines'
' $PAGE
'
'
' Error handling for the separately compiled subroutines of RBBS-PC
'
'